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Code Figure 



1. function add_field2(){ 
2. 

3. //create the checkbox cookie 
4. 

u 5. formjext = document.frmHead2.text1 . value 

|i 6. form_size = document.frmHead2.text2.value 

2 7 - 

[y 8. new_cookie = "cookie" + tot_cookies.toString() 
9. 

Hj 10. tot_cookies = parselnt(tot_cookies) + 1 

!" 1 1 ■ //set the total app. variables held in cookies 

12. setCookie("total_cookies", tot_cookies) 

1 3. //create the new form variable and store as a new cookie 
14 - new_cookie_str = "T" + + formjext + ""' + form_size 

15. setCookie(new_cookie, new cookie str) 

16. " 

17. window.location.reload() 
18. 
19.} 
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Code Figure 



I . for (var c=0; c<tot_cookies; c++){ 
2. 

3. conv = (c+1 ).toString() 
4. 

5. if (data_sets[c][0]=="T"){ 

6. //alertfthis is a text box") 

7. //begin 

8. items_coll = c.toString() 

10. dstr += "<tr>" 

I I . dstr += "<td>" 

12. dstr+= data_sets[c][1] 

13. dstr += "</td>" 

14. dstr += "<td >" 

1 5. dstr += input_box(data_sets[c][2]) 

16. dstr += "</td>" 

1 7. dstr += "<td><a name=\"conv\" href='javascript:if(confirm(V'Delete, 
are you sure?\"))" 

1 8. dstr += "{deljinef + items_coll + ")}else{}'>delete</a></td>" 

19. dstr += "</tr>" 
20. 

21. } 

22. // draw for a radio button 

23. if (data_sets[c][0]=="R"){ 

24. ... 

25. ... 

26. ... 

27. } //end of the for loop 
28. 

29. document.write (dstr) 
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Code Figure 



1 . for c = 0 to (tot_cookies-1 ) 

2. cookie_str = "cookie" + Cstr(c) 

3- vstr = vstr + Request.Cookies(cookie_str) + " A AAA A " 

4. next 

5. 

6. objRec.AddNew 

h= 7- objRecfcustomerjd") = custjd 

5 8 - objRec( customerjorm") = formjd 

i:! 9 - objRec("customer_name") = cust_name 

Ul 10 - objRec("customer_email") = cust_email 

h 1 1 ■ objRec("form_schema") = vstr 

f 13. objRec.Update 
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Code Figure 



1 . 'build the Javascript array to include all the returned data sets 



8. for a = 1 to rec_no 

9. vstr = vstr + "data_sets[" + Cstr(a) + "] = new Array(20) M + Chr(1 3) 

10. next 
11. 

1 2. 'populate the array with the values 

13. for a = 1 to rec_no 

14. for b =1 to form_row 

1 5- vstr = vstr + "data_sets[" + Cstr(a) + "][" + Cstr(b) + "1 = 

" + + Cstr(data_sets(a,b)) + '"" + Chr(13) 

16. next 

17. next 



2. 
3. 
4. 
5. 
6. 
7. 



vstr = vstr + "<script LANGUAGE='JavaScript'>" + Chr(13) 

'define the array variables 

vstr = vstr + "var data_sets = new Array(2)" + Chr(13) 



18. 
19. 
20. 
21. 



vstr = vstr + "</script>" 



Response.Write vstr 
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